﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting.Web

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Equipment



'''<summary>
'''This is a test class for PropertiesMustMatchAttributeTest and is intended
'''to contain all PropertiesMustMatchAttributeTest Unit Tests
'''</summary>
<TestClass()> _
Public Class PropertiesMustMatchAttributeTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Gets or sets the test context which provides
    '''information about and functionality for the current test run.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Additional test attributes"
    '
    'You can use the following additional attributes as you write your tests:
    '
    'Use ClassInitialize to run code before running the first test in the class
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup to run code after all tests in a class have run
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize to run code before running each test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup to run code after each test has run
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for PropertiesMustMatchAttribute Constructor
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub PropertiesMustMatchAttributeConstructorTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
    Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty)
    Assert.Inconclusive("TODO: Implement code to verify target")
End Sub

'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for FormatErrorMessage
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub FormatErrorMessageTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty) ' TODO: Initialize to an appropriate value
Dim name As String = String.Empty ' TODO: Initialize to an appropriate value
Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
    Dim actual As String
    actual = target.FormatErrorMessage(name)
    Assert.AreEqual(expected, actual)
    Assert.Inconclusive("Verify the correctness of this test method.")
End Sub

'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for IsValid
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub IsValidTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty) ' TODO: Initialize to an appropriate value
Dim value As Object = Nothing ' TODO: Initialize to an appropriate value
Dim expected As Boolean = false ' TODO: Initialize to an appropriate value
    Dim actual As Boolean
    actual = target.IsValid(value)
    Assert.AreEqual(expected, actual)
    Assert.Inconclusive("Verify the correctness of this test method.")
End Sub

'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for ConfirmProperty
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub ConfirmPropertyTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty) ' TODO: Initialize to an appropriate value
    Dim actual As String
    actual = target.ConfirmProperty
    Assert.Inconclusive("Verify the correctness of this test method.")
End Sub

'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for OriginalProperty
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub OriginalPropertyTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty) ' TODO: Initialize to an appropriate value
    Dim actual As String
    actual = target.OriginalProperty
    Assert.Inconclusive("Verify the correctness of this test method.")
End Sub

'TODO: Ensure that the UrlToTest attribute specifies a URL to an ASP.NET page (for example,
' http://.../Default.aspx). This is necessary for the unit test to be executed on the web server,
' whether you are testing a page, web service, or a WCF service.
'''<summary>
'''A test for TypeId
'''</summary>
<TestMethod(),  _
 HostType("ASP.NET"),  _
 AspNetDevelopmentServerHost("d:\Projects\Equipment\Equipment\Equipment", "/"),  _
 UrlToTest("http://localhost:17196/")>  _
Public Sub TypeIdTest()
Dim originalProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim confirmProperty As String = String.Empty ' TODO: Initialize to an appropriate value
Dim target As PropertiesMustMatchAttribute = New PropertiesMustMatchAttribute(originalProperty, confirmProperty) ' TODO: Initialize to an appropriate value
    Dim actual As Object
    actual = target.TypeId
    Assert.Inconclusive("Verify the correctness of this test method.")
End Sub
End Class
